#include "protheus.ch"
#include "rwmake.ch"
#include "TOPCONN.CH"

/*
+-------------------------+-------------------------------------------+----------------------+
|Funcao: SHSTATUS         |Ghandy						          		    | Data: 15/06/2013     |
+-------------------------+-------------------------------------------+----------------------+
|Descricao:  Funcao para mostar o status do chamado no sistema Jupiter  			            |
+--------------------------------------------------------------------------------------------+
|Uso: Modulo Gestao de Servicos - Browse dos chamados tecnicos e tela de chaamdos			   |
|	                                                                                       	|
+--------------------------------------------------------------------------------------------+
|                     ATUALIZACOES SOFRIDAS DESDE A CONSTRUCAO INICIAL.                      |
+-------------------------+------------+-----------------------------------------------------+
|Programador              |   Data     |             Motivo da Alteracao                     |
+-------------------------+------------+-----------------------------------------------------+
|                         |   /  /     |                                                     |
+-------------------------+------------+-----------------------------------------------------+
*/

User Function SHSTATUS()
Local _cRet	 := SPACE(20)

IF Empty(AB1->AB1_JUCTEC)
	_cRet	 := "Sem tecnico definido"
Endif
DbSelectArea("ZZJ")
DbSetOrder(1)
DbSeek(xFilial("ZZJ")+AB1->AB1_NRCHAM)
IF !ZZJ->(Eof())
	IF AB1->AB1_STATUS == "E"
		_cRet := "Encerrado"
	ELSEIF ZZJ->ZJ_STATUS == "A" .OR. !EMPTY(ZZJ->ZJ_DTHRFEC)
		_cRet := "Atendido"
	ELSEIF ZZJ->ZJ_STATUS == "R" .OR. !EMPTY(ZZJ->ZJ_DTHRREC)
		_cRet := "Com o tecnico"
	ELSEIF ZZJ->ZJ_STATUS == "P"
		_cRet := "Processado"
	ELSEIF ZZJ->ZJ_STATUS == "E"
		_cRet := "Enviado"
	ENDIF
ENDIF
Return(_cRet)
